﻿Imports DevExpress.XtraNavBar

Public Class ucBaoCaoTongHop


    Private Sub ucBaoCaoTongHop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim uc As New ucTonKhoTongHop
        uc.Dock = DockStyle.Fill
        uc.Tag = "ucBaoCaoTH"
        groupMain.Controls.Add(uc)
        groupMain.Text = "Tồn Kho Tổng Hợp"
    End Sub


    Private Sub btnTheKho_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles btnTheKho.LinkClicked
        If groupMain.Controls(0).Tag.ToString() <> "ucTheKho" Then
            groupMain.Controls.Clear()
            Dim uc As New ucTheKho
            uc.Dock = DockStyle.Fill
            uc.Tag = "ucTheKho"
            groupMain.Controls.Add(uc)
            groupMain.Text = "Thẻ Kho"
        End If
    End Sub

    Private Sub btnSoTTHH_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles btnSoTTHH.LinkClicked
        If groupMain.Controls(0).Tag.ToString() <> "ucSoChiTiet" Then
            groupMain.Controls.Clear()
            Dim uc As New ucSoChiTietHangHoa
            uc.Dock = DockStyle.Fill
            uc.Tag = "ucSoChiTiet"
            groupMain.Controls.Add(uc)
            groupMain.Text = "Sổ Chi Tiết Hàng Hóa"
        End If
    End Sub

    Private Sub btnTonKhoTongHop_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles btnTonKhoTongHop.LinkClicked
        If groupMain.Controls(0).Tag.ToString() <> "ucBaoCaoTH" Then
            groupMain.Controls.Clear()
            Dim uc As New ucTonKhoTongHop
            uc.Dock = DockStyle.Fill
            uc.Tag = "ucBaoCaoTH"
            groupMain.Controls.Add(uc)
            groupMain.Text = "Tồn Kho Tổng Hợp"
        End If
    End Sub
End Class
